LOGIC Apps

home *** CD-ROM | disk | FTP | other *** search

/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / M2.bas < prev next >

Wrap

BASIC Source File | 2012-02-16 | 9KB | 405 lines

90 HOME 100 HGR : HCOLOR= 3 102 CALL 62450 109 REM draw convex mir 110 HPLOT 23,18 TO 20,23 TO 17,29 TO 14,35 TO 12,41 TO 10,47 TO 8,55 TO 6,63 TO 4,71 TO 4,89 TO 6,97 TO 8,105 TO 10,112 TO 12,118 TO 14,124 TO 17,130 TO 20,136 TO 23,141 120 HPLOT 24,18 TO 21,23 TO 18,29 TO 15,35 TO 13,41 TO 11,47 TO 9,55 TO 7,63 TO 5,71 TO 5,89 TO 7,97 TO 9,105 TO 11,112 TO 13,118 TO 15,124 TO 18,130 TO 21,136 TO 24,141 130 HPLOT 25,18 TO 22,23 TO 19,29 TO 16,35 TO 14,41 TO 12,47 TO 10,55 TO 8,63 TO 6,71 TO 6,89 TO 8,97 TO 10,105 TO 12,112 TO 14,118 TO 16,124 TO 19,130 TO 22,136 TO 25,141 149 REM C 150 X% = 2:Y% = 15 152 GOSUB 11150 154 REM o 156 X% = 9 158 GOSUB 10500 160 REM n 162 X% = 15 164 GOSUB 10450 166 REM c 168 X% = 21 170 GOSUB 10050 172 REM a 174 X% = 27 176 GOSUB 10000 178 REM v 180 X% = 33 182 GOSUB 10750 184 REM e 186 X% = 40 188 GOSUB 10150 192 REM M 194 X% = 49 196 GOSUB 11050 198 REM i 200 X% = 56 202 GOSUB 10350 204 REM r 206 X% = 59 208 GOSUB 10600 210 REM r 212 X% = 65 214 GOSUB 10600 216 REM o 218 X% = 71 220 GOSUB 10500 222 REM r 224 X% = 77 226 GOSUB 10600 250 REM Draw Lin Perp 251 HPLOT 15,41 TO 130,80 261 REM L 262 X% = 135:Y% = 80 266 GOSUB 11000 268 REM i 270 X% = 142 272 GOSUB 10350 274 REM n 276 X% = 145 278 GOSUB 10450 280 REM e 282 X% = 151 284 GOSUB 10150 288 REM p & 7 290 X% = 160 292 GOSUB 10550 294 REM e 296 X% = 166 298 GOSUB 10150 300 REM r 302 X% = 172 304 GOSUB 10600 306 REM p 308 X% = 178 310 GOSUB 10550 312 REM e 314 X% = 184 316 GOSUB 10150 318 REM n 320 X% = 190 322 GOSUB 10450 324 REM d 326 X% = 196 328 GOSUB 10100 330 REM i 332 X% = 202 334 GOSUB 10350 336 REM c 338 X% = 205 340 GOSUB 10050 342 REM u 344 X% = 211 346 GOSUB 10700 348 REM l 350 X% = 217 352 GOSUB 10400 354 REM a 356 X% = 220 358 GOSUB 10000 360 REM r 362 X% = 226 364 GOSUB 10600 400 REM draw arrow 402 HPLOT 129,45 TO 125,41 404 HPLOT 129,37 TO 125,41 408 HPLOT 125,41 TO 15,41 410 REM draw refl ray 412 HPLOT 15,42 TO 96,116 414 HPLOT 96,111 416 HPLOT 95,112 TO 96,112 418 HPLOT 94,113 TO 96,113 420 HPLOT 93,114 TO 96,114 422 HPLOT 92,115 TO 96,115 424 HPLOT 91,116 TO 96,116 426 HPLOT 90,117 TO 96,117 452 REM I 454 X% = 134:Y% = 41 456 GOSUB 10950 458 REM n 460 X% = 140 462 GOSUB 10450 464 REM c 466 X% = 146 468 GOSUB 10050 470 REM i 472 X% = 152 474 GOSUB 10350 476 REM d 478 X% = 155 480 GOSUB 10100 482 REM e 484 X% = 161 486 GOSUB 10150 488 REM n 490 X% = 167 492 GOSUB 10450 494 REM t 496 X% = 173 498 GOSUB 10650 502 REM R 504 X% = 182 506 GOSUB 11100 508 REM a 510 X% = 189 512 GOSUB 10000 514 REM y 516 X% = 195 518 GOSUB 10850 532 REM R 534 X% = 135:Y% = 117 536 GOSUB 11100 538 REM e 540 X% = 142 542 GOSUB 10150 544 REM f 546 X% = 148 548 GOSUB 10200 550 REM l 552 X% = 154 554 GOSUB 10400 556 REM e 558 X% = 157 560 GOSUB 10150 562 REM c 564 X% = 163 566 GOSUB 10050 568 REM t 570 X% = 169 572 GOSUB 10650 574 REM e 576 X% = 174 578 GOSUB 10150 580 REM d 582 X% = 180 584 GOSUB 10100 592 REM R 594 X% = 189 596 GOSUB 11100 598 REM a 600 X% = 196 602 GOSUB 10000 604 REM y 606 X% = 202 608 GOSUB 10850 622 REM Draw angles 624 HPLOT 30,46 TO 24,51 626 HPLOT 35,42 TO 30,46 634 REM A 636 X% = 80:Y% = 57 638 GOSUB 10900 640 REM n 642 X% = 87 644 GOSUB 10450 646 REM g 648 X% = 93 650 GOSUB 10250 652 REM l 654 X% = 99 656 GOSUB 10400 658 REM e 660 X% = 102 662 GOSUB 10150 666 REM o 668 X% = 111 670 GOSUB 10500 672 REM f 674 X% = 117 676 GOSUB 10200 678 REM Incidence 680 X% = 125 682 GOSUB 10950 684 REM n 686 X% = 131 688 GOSUB 10450 690 REM c 692 X% = 137 694 GOSUB 10050 696 REM i 698 X% = 143 700 GOSUB 10350 702 REM d 704 X% = 146 706 GOSUB 10100 708 REM e 710 X% = 151 712 GOSUB 10150 714 REM n 716 X% = 157 718 GOSUB 10450 720 REM c 722 X% = 163 724 GOSUB 10050 726 REM e 728 X% = 169 730 GOSUB 10150 744 REM A 746 X% = 80:Y% = 94 748 GOSUB 10900 750 REM n 752 X% = 87 754 GOSUB 10450 756 REM g 758 X% = 93 760 GOSUB 10250 762 REM l 764 X% = 99 766 GOSUB 10400 768 REM e 770 X% = 102 772 GOSUB 10150 774 REM of 776 X% = 111 778 GOSUB 10500 780 REM f 782 X% = 117 784 GOSUB 10200 788 REM R 790 X% = 126 792 GOSUB 11100 794 REM e 796 X% = 133 798 GOSUB 10150 800 REM f 802 X% = 139 804 GOSUB 10200 806 REM l 808 X% = 146 810 GOSUB 10400 812 REM e 814 X% = 149 816 GOSUB 10150 818 REM c 820 X% = 156 822 GOSUB 10050 824 REM t 826 X% = 162 828 GOSUB 10650 830 REM i 832 X% = 167 834 GOSUB 10350 836 REM o 838 X% = 170 840 GOSUB 10500 842 REM n 844 X% = 176 846 GOSUB 10450 900 VTAB (21): PRINT 910 VTAB (21): PRINT "Press any key to continue." 911 VTAB (21): PRINT 912 GET KY$: CALL 62450 914 VTAB (21): PRINT CHR$(4);"run cv" 5000 END 10000 HPLOT X%,Y% -1 10010 HPLOT X% +1,Y% TO X% +2,Y% 10020 HPLOT X% +1,Y% -2 TO X% +2,Y% -2 10030 HPLOT X% +1,Y% -4 TO X% +2,Y% -4 10040 HPLOT X% +3,Y% TO X% +3,Y% -3 10041 RETURN 10050 HPLOT X%,Y% -1 TO X%,Y% -3 10060 HPLOT X% +1,Y% TO X% +3,Y% 10070 HPLOT X% +1,Y% -4 TO X% +3,Y% -4 10071 RETURN 10100 HPLOT X%,Y% -1 TO X%,Y% -3 10110 HPLOT X% +1,Y% TO X% +2,Y% 10120 HPLOT X% +1,Y% -4 TO X% +2,Y% -4 10130 HPLOT X% +3,Y% TO X% +3,Y% -6 10131 RETURN 10150 HPLOT X%,Y% -1 TO X%,Y% -3 10160 HPLOT X% +1,Y% TO X% +3,Y% 10170 HPLOT X% +1,Y% -2 TO X% +2,Y% -2 10180 HPLOT X% +1,Y% -4 TO X% +2,Y% -4 10190 HPLOT X% +3,Y% -3 10191 RETURN 10200 HPLOT X%,Y% -3 TO X% +2,Y% -3 10210 HPLOT X% +1,Y% TO X% +1,Y% -5 10220 HPLOT X% +2,Y% -6 TO X% +3,Y% -6 10221 RETURN 10250 HPLOT X%,Y% -1 TO X%,Y% -3 10260 HPLOT X% +1,Y% TO X% +2,Y% 10270 HPLOT X% +1,Y% -4 TO X% +2,Y% -4 10280 HPLOT X% +3,Y% +2 TO X% +3,Y% -3 10290 HPLOT X% +1,Y% +3 TO X% +2,Y% +3 10291 RETURN 10350 HPLOT X%,Y% TO X%,Y% -3 10360 HPLOT X%,Y% -5 10361 RETURN 10400 HPLOT X%,Y% TO X%,Y% -6 10401 RETURN 10450 HPLOT X%,Y% TO X%,Y% -4 10460 HPLOT X% +1,Y% -3 10470 HPLOT X% +2,Y% -4 10480 HPLOT X% +3,Y% TO X% +3,Y% -3 10481 RETURN 10500 HPLOT X%,Y% -1 TO X%,Y% -3 10510 HPLOT X% +1,Y% TO X% +2,Y% 10520 HPLOT X% +1,Y% -4 TO X% +2,Y% -4 10530 HPLOT X% +3,Y% -1 TO X% +3,Y% -3 10531 RETURN 10550 HPLOT X%,Y% +3 TO X%,Y% -4 10560 HPLOT X% +1,Y% TO X% +2,Y% 10570 HPLOT X% +1,Y% -4 TO X% +2,Y% -4 10580 HPLOT X% +3,Y% -1 TO X% +3,Y% -3 10581 RETURN 10600 HPLOT X%,Y% TO X%,Y% -4 10610 HPLOT X% +1,Y% -3 10620 HPLOT X% +2,Y% -4 TO X% +3,Y% -4 10621 RETURN 10649 REM t 10650 HPLOT X%,Y% -4 10660 HPLOT X% +1,Y% TO X% +1,Y% -6 10670 HPLOT X% +2,Y% -4 10671 RETURN 10699 REM u 10700 HPLOT X%,Y% -1 TO X%,Y% -4 10710 HPLOT X% +1,Y% 10720 HPLOT X% +2,Y% -1 10730 HPLOT X% +3,Y% TO X% +3,Y% -4 10731 RETURN 10749 REM v 10750 HPLOT X%,Y% -2 TO X%,Y% -4 10760 HPLOT X% +1,Y% -1 10770 HPLOT X% +2,Y% 10780 HPLOT X% +3,Y% -1 10790 HPLOT X% +4,Y% -2 TO X% +4,Y% -4 10791 RETURN 10799 REM x 10849 REM y 10850 HPLOT X%,Y% -1 TO X%,Y% -4 10860 HPLOT X% +1,Y% TO X% +2,Y% 10870 HPLOT X% +3,Y% +2 TO X% +3,Y% -4 10880 HPLOT X% +2,Y% +3 10881 RETURN 10899 REM A 10900 HPLOT X%,Y% TO X%,Y% -4 10910 HPLOT X% +1,Y% -5 TO X% +2,Y% -6 10920 HPLOT X% +3,Y% -5 10930 HPLOT X% +1,Y% -2 TO X% +3,Y% -2 10940 HPLOT X% +4,Y% TO X% +4,Y% -4 10941 RETURN 10949 REM I 10950 HPLOT X% +1,Y% TO X% +3,Y% 10960 HPLOT X% +2,Y% -1 TO X% +2,Y% -5 10970 HPLOT X% +1,Y% -6 TO X% +3,Y% -6 10971 RETURN 10999 REM L 11000 HPLOT X%,Y% TO X%,Y% -6 11010 HPLOT X% +1,Y% TO X% +4,Y% 11011 RETURN 11049 REM M 11050 HPLOT X%,Y% TO X%,Y% -6 11060 HPLOT X% +1,Y% -5 11070 HPLOT X% +2,Y% -3 TO X% +2,Y% -5 11080 HPLOT X% +3,Y% -5 11090 HPLOT X% +4,Y% TO X% +4,Y% -6 11091 RETURN 11099 REM R 11100 HPLOT X%,Y% TO X%,Y% -6 11110 HPLOT X% +1,Y% -3 TO X% +3,Y% -3 11120 HPLOT X% +1,Y% -6 TO X% +3,Y% -6 11130 HPLOT X% +4,Y% -4 TO X% +4,Y% -5 11140 HPLOT X% +4,Y% TO X% +2,Y% -2 11141 RETURN 11150 HPLOT X%,Y% -1 TO X%,Y% -5 11160 HPLOT X% +1,Y% TO X% +3,Y% 11170 HPLOT X% +1,Y% -6 TO X% +3,Y% -6 11180 HPLOT X% +4,Y% -5 11190 HPLOT X% +4,Y% -1 11191 RETURN